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FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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MMA ww 
WANNA ww 
BARARAARAaAda 
ancoaonoaonaanana 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aoa aa 
favo Vo lolololololovololololr=) 
AoIAaaannancaoanaaaa 
SS So, So So > > o> > > 
<aqqdatatacteacecacae 
<< << 
<< << 
<a << 
<< ax 
<< << 
<a << 
Ss a a> o> > > a> > > > > 
+ + 2. 2 2 oo ee ee 
eaacac ca 
acaanr aa 
ca ca cc 
cc ca aca 
ca eccc 
car eccce 
cc cc 
acc ca 
aqaacaaancaacacaacac 
@aaeaacaacacaearcaaa 
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DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


** ® 
** ® 
‘* ® 
te > s 
® ® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. . 
*® *® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
'® ® 
*® ® 
-® ® 
'* ® 
‘* * 
** ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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"ABSTRACT: 


FORTRAN COMPATABILITY asorery routine RADSO converts 6 ASCII 
characters to 2 RADSO words. 


; VERSION: 0 
: ; HISTORY: 


; AUTHOR: 
Peter Yuo, 12-Sep-77: Version 0 


; MODIFIED BY: 
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HISTO ; Detailed Current Edit History 6=-SEP 3:28 YPORRTL. SRC JCOMRAD 
~SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 01 of ASCR5O 


-0 Clear Pan x ls oe at, [ei ialization in R50WD_R6 
- Define forma fee $0 no access vio. TNH 5-Jan-78 
Make og ha tyke OD -Jan-78 


| 

-Jan- 
Another bug fix for RAD5O. JMT 9=-Jan-77 
Break nodute 25 MSASCRSO into: modules: 


a 
—woOocl 
eecee 
wo 
Cc 
or 
~ 
~ 
4 


- routine R 
Const TRADSO - routine TRADSO 
COMSSR50WD = common ASCII to RADSO conversion routine 
~00¢ ° men ee notice, JBS 16-NOV-78 
1-005 = Add *’_’ T directive. JBS 21-DEC-78 
-004 = Allow argument to_be passed either by descriptor or by 
reference. JAW 13-Fe 


= 
UF WPR—OOONOULS Ww Ow/” 
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BECLARAT IONS 6-SEP-1984 FORRTL. SRC CoO oMRADSO. MAR; 1 
0 67 .SBTTL DECLARATIONS 
0 oe 
60 5 : INCLUDE FILES: 
si 71 3 
000 te 
000 ee. 
9000 74 : EXTERNAL SYMBOLS: 
B88 75 ; 
000 76 -DSABL GBL 
0000 77 -EXTRN COMSSRS5OWD_R6 
B98 4 
308 79 ; 
0000 80 ; MACROS: 
0000 81; 
0000 Hf SDSCDEF 3; Define descriptor symbols. 
0000 8 
0000 84 ; 
44h 82 ; PSECT DECLARATIONS: 
00000000 87 .PSECT _F4PCOMPATSCODE PIC,USR,CON,REL,LCL,SHR.EXE,.RD,NOWRT 
0000 89 ; 
0000 90 : EQUATED SYMBOLS: 
0000 91; 
0000 4 
0000 93 ; 
0000 94 ; OWN STORAGE: 
0000 95 ; 


— 3) 


-“o- 


| C 2 
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1-004 fabS0 - CONVERT 6=CHAR ASCII STRING INTO 6=SEP-1984 10:53:28 (CFORRTL.SRCJCOMRADSO.MAR; 1 aes 


7 -SBTTL RADSO = CONVERT 6=CHAR ASCII STRING INTO RADIX=50 STRING 


OOO 


Owe 


Oooo 


p++ 
; FUNCTIONAL DESCRIPTION: 


Algorithmic steps: 
1) CHARS ERs 


EM = 6 
T_INPUT_ POSITION = char_array.rbu.ra 
2) eetl “COMS$SR50WD_R6 to convert one word at a time. 


CALLING SEQUENCE: 


io lololeleleloleloles +. +) s) 
OWONAOUE Wr 


radix50 array. v = RADSO (ascii_array.rbu.ra) 


00000004 ASCII_ARRAY = ; arg list offset 


: INPUT PARAMETERS: 


SOOCCOOCOCOOOOOCOOOOOCOOOOOCOOoOOO 


COOCCoCooQoQoQoQoQoQoQoQooooooooooo 


DOOCoooCooCooooooooooooooo 
pelelelelelelelelelalelelelelelelelelelelelelelelolealola) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
110 
iH 
113 
114 
115 
116 
117 
113 3 ascii_array.rbu.ra ; ascii string to be converted 
120 ; IMPLICIT INPUTS: 
\$1 : NONE 
138 3 OUTPUT PARAMETERS: 
0000 125; radix50_array.wlu.v ; output location for the result 
0000 126; ; of the conversion 
0000 127; 
0000 128 ; IMPLICIT OUTPUTS: 
0000 1¢ ; NONE 
0000 130; 
0000 131 ; COMPLETION CODES: 
0000 132; NONE 
0000 133; 
0000 134 ; SIDE EFFECTS: 
0000 135; NONE 
0000 136; 
0000 137 ;-- 
0000 =6138 
007¢ 0000 139 -ENTRY RADSO, “M<R2, R3, R4, RS, ROD 
B08 140 3 standard call-by-reference entry 
00 141 
000 146 : LER : 
00 143 ; Initialization 
00 144 ; 
4 145 
55 06 DO 00 146 MOVL #6, R5 ; CHARS_REM = 6 
52. 04 AC 00 000 147 MOVL ascii_array(AP), R2 : R2 = address of input string 
009 148 : or descriptor 
OOFF 8F ¢ Bl 3? 149 CMPW pscsu_ LENGTH(R2), #255 : is Length <= 255? 
1A 3 139 BGTRU not, assume _ Bs reference. 
OE 02 Ae 91 1 151 CMPB SCSB_DTYPE(R2), #DSCSK brvee"t : Is data 
12 Bie 126 BNEQU If flo t. assume ie A ES 
01 03 *) 91 16 15 CMPB DSC$B_CLASS(R2), #DSCSK _tLASS > 3: Is class S$? 


ae | 


ee 


dD 2 
COMSRADSO ° RTRAN COMPATIBILITY = ASCII to RADSO 15-SEP-1984 47:47 VAX/VMS Macro V04- P 
1-004 babso = CONVERT 6-CHAR ASCII STRING INTO patie 1 98; :53:28 (CFORRTL. Mae tO oMnADSO. MAR; 1 — 
06 ~=—O 1A = 154 BNEQU 5$ ; If not, assume by refer 
52 04 A2 08 8 ' MOVL DSCSA_POINTER(R2), R2 ; Use eddress in descrister. 
lat 2 
: 138 : Call COMSSR50WD_R6 
0 0 160° 
OOOOOOO0'EF 16 09 ? 18¢ 5$: JSB COMSSR50WD_R6 ; convert first word 

026 163; 

8 196 ; Save RADIX_VALUE on stack and call COMSSR50WD_R6 again 
$0 6 166° 

51 DD 0026 167 PUSHL R11 ; save RADIX_VALUE on stack 
QOOOOMSO'EF 16 8 ; 193 JSB COMS$R50WD_R6 ; call COM$$R50WD_R6 to convert 2nd word 
OO2E 170; 
QO2E 171 ; LP(RO) = saved RADIX_VALUE on stack (1st word) 
002E \7¢ 3 HP(RO) = RADIX_VALUE™ (2nd word) 
OO2E 173; 
002E 174 
“eo wwe 7. $i. 44 175 INSV R1, #16, #16, (SP) ; HP(SP) = first word converted 
50 6—€ »0D0 00 176 MOVL (SP), RO : giving result in RO 
04 0036 177 RET : return with result in RO 

0037 178 
0037 179 
0037 #180 . END 


Rs 
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ae ath 9 ; : 
Symbol table 66-SEP-1984 : 


The working set Limit was 1050 go 
8112 bytes (16 pages) of virtua 


180 source Lines were read in Pass 1, produc ing 13 object records in Pass 2. 
8 pages of virtual memory were used to define / macros. 


eet ee ee eR eH ew eH me 


+ 
! Macro library statistics ! 
+ + 


Macros defined 


Macro Library name 
_$255SDUA28: (SYSLIBISTARLET .MLB; 2 4 
190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:COMRAD50/0BJ=0BU$ 


ASCI1_ARRAY = 00000004 
COMSSR5O0WD_R6 eerereee =X 8 00 
DSCSA_POINTER = 00000004 
DSC$B_CLASS = 00000003 
DSCSB_DTYPE = alee ts 
DSCSK_CLASS_S = 444 44 
DSCSK_DTYPE_T = 44444443 
DSC$W_LENGTA = 0000000 
RADSO 00000000 RG 02 
Pree eeocews eet ena Sa 
: Psect synopsis ! 
berm nace Coma mm ee + 
PSECT name Allocation PSECT No. Attributes 
. ABS . 00000000 0.) 0O¢ O.) NOPIC USR CON’ ABS 
SABSS 00000000 < 9. 01 ¢ 1.) \NOPIC USR CON ABS 
_FGPCOMPATSCODE 00000037 ¢ 55.) 02¢ 2.) PIC USR CON REL 
fom emase sera woe mann seme ee + 
: Performance indicators ! 
eee seen seen ee secre ee ene e = + 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.08 00:00:01.36 
Command processing 120 00:00:00.57 00:00:03.15 
Pass 1 132 00:00:01.76 00:00:05.94 
Symbol table sort 0 00:00:00.18 00:00:00.30 
Pass 47 00:00:00.49 00:00:02.21 
Symbol table output 3 es SS 00:00:00.16 
Psect synopsis output 2 00:00:00.0 00:00:00.06 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 335 00:00:03.13 00:00:13.19 


memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 134 non-local and 1 Local symbols. 


:COMRADSO MSRC$:COMRADSO/UPDATE=(ENHS : COMRADSO) 


LCL NO 
LCL NOSH 
LCL 


cro Les 
SRCICOMRADSO.MAR; 1 


WRT NOVEC BYTE 
WRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 


SHR NOEXE NORD NO 
R EXE RD 


ae 
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